fileName = "audioData.txt"
data <- read.table(fileName)[,1]
fps <- 29.97

x <- (1:length(data))/fps
plot(x, data, type="l", col="blue", xlab="sec", las=1)

